home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Inventurerfassung.stopri < prev    next >
Text File  |  1999-03-27  |  4KB  |  182 lines
  1. 1$VER: Inventurerfassung 1.01 (28.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (28.03.1999)
  5. %%Version: 1.01
  6. %%Title: (MT-RechnungIII - Inventurerfassung)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: Label
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 54 def
  22. /DokumentRandY 50 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42.  
  43. /DokumentRandYOriginal DokumentRandY def
  44. %%EndSetup
  45.  
  46. %%BeginnResource
  47. /reencodedict 5 dict def
  48. /ReEncode
  49. {
  50.      reencodedict begin
  51.      /newencoding exch def
  52.      /newfontname exch def
  53.      /basefontname exch def
  54.  
  55.      /basefontdict basefontname findfont def
  56.  
  57.      /newfont basefontdict maxlength dict def
  58.  
  59.      basefontdict
  60.      { exch dup dup /FID ne exch /Encoding ne and
  61.           { exch newfont 3 1 roll put }
  62.           { pop pop }
  63.           ifelse
  64.      } forall
  65.      newfont /FontName newfontname put
  66.      newfont /Encoding newencoding put
  67.      newfontname newfont definefont pop
  68.      end
  69. } def
  70.  
  71. /ISOLatin8Encoding
  72. [
  73.     ISOLatin1Encoding 0 164 getinterval aload pop
  74.     /euro
  75.     ISOLatin1Encoding 165 91 getinterval aload pop
  76. ] def
  77. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  78. /getsymbol {findfont exch scalefont def} bind def
  79. %%EndResource
  80.  
  81. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  82. /Times10Zeile 10 def
  83. /Times10 Times10Zeile /OF0 /Times-Roman /OF0 getfont
  84. /Times24Zeile 24 def
  85. /Times24 Times24Zeile /OF0 /Times-Roman /OF0 getfont
  86.  
  87. /Seite 1 def
  88. /SeitenNr 4 string def
  89.  
  90. %% Definition der Überschrift
  91. /Ueberschrift
  92. {
  93.     /BoxX1 DokumentRandX def
  94.     /BoxX2 486 def
  95.     /BoxY1 DokumentRandY 2 sub def
  96.     /BoxY2 Times10Zeile def
  97.  
  98.     0.9 setgray
  99.     BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  100.     0.0 setgray
  101.     BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  102.  
  103.     DokumentRandX 3 add DokumentRandY moveto
  104.     (ArtikelNr) show
  105.  
  106.     DokumentRandX 80 add DokumentRandY moveto
  107.     (Artikelbezeichnung) show
  108.  
  109.     DokumentRandX DokumentRandY moveto
  110.     (Bestand System) dup stringwidth
  111.     pop 350 exch sub
  112.     DokumentRandX add DokumentRandY moveto show
  113.  
  114.     DokumentRandX DokumentRandY moveto
  115.     (Inventurbestand) dup stringwidth
  116.     pop 480 exch sub
  117.     DokumentRandX add DokumentRandY moveto show
  118.  
  119.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  120.  
  121. } def
  122.  
  123. %% Ausgab der Kopfdaten
  124.  
  125. Times24 setfont
  126.  
  127. (Inventurerfassung) dup stringwidth pop
  128. PageSize 0 get exch sub 2 div cvi DokumentRandY moveto show
  129.  
  130. DokumentRandY Times24Zeile sub Times24Zeile sub /DokumentRandY exch def
  131.  
  132. Times10 setfont
  133.  
  134. Ueberschrift
  135.  
  136. /pos 0 def
  137.  
  138. InventurArtikelNr
  139. {
  140.     80 DokumentRandY gt
  141.     {
  142.         DokumentRandX 450 add 50 moveto
  143.         (Seite: ) show
  144.         Seite SeitenNr cvs show
  145.         showpage
  146.  
  147.         /DokumentRandY DokumentRandYOriginal def
  148.         Ueberschrift
  149.         Seite 1 add /Seite exch def
  150.     } if
  151.  
  152.     DokumentRandX 3 add DokumentRandY moveto
  153.     show
  154.  
  155.     DokumentRandX 80 add DokumentRandY moveto
  156.     InventurArtikelBezeich pos get show
  157.  
  158.     DokumentRandX DokumentRandY moveto
  159.     InventurBestandSystem pos get
  160.     dup stringwidth
  161.     pop 350 exch sub
  162.     DokumentRandX add DokumentRandY moveto
  163.     show
  164.  
  165.     DokumentRandX 370 add DokumentRandY 110 0 rectstroke
  166.  
  167.     pos 1 add /pos exch def
  168.  
  169.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  170.  
  171. } forall
  172.  
  173. DokumentRandX 450 add 50 moveto
  174. (Seite: ) show
  175. Seite SeitenNr cvs show
  176.  
  177. showpage
  178.  
  179. %%Trailer
  180. clear
  181. %%EOF
  182.